﻿Public Class SqlServerConnector
    Inherits Connector

    Public Overrides Function Connect() As System.Data.IDbConnection
        Dim cn = Me.CreateDbConnection
        cn.Open()
        Return cn
    End Function

    Private Function CreateDbConnection() As SqlServerCe.SqlCeConnection
        Dim cn = New SqlServerCe.SqlCeConnection
        cn.ConnectionString = Me.ConnectionString
        Return cn
    End Function
End Class